>>> import Data.Vector.Fixed.Boxed (Vec3) >>> let b0 = basis 0 :: Vec3 Int >>> let b1 = basis 1 :: Vec3 Int >>> let b2 = basis 2 :: Vec3 Int >>> let vplus x y = zipWith (+) x y >>> vplus b0 b1 fromList [1,1,0] >>> vplus b0 b2 fromList [1,0,1] >>> vplus b1 b2 fromList [0,1,1]